00100		SUBROUTINE SIDEBANDS(CAR,XMOD,CINDEX,K)
00200		COMMON FREQ(3,0/50,50),FUNC(50),AMP(50),II(1),IJJ(3000)
00300		IT=-1.0
00400		MAX=CINDEX+4.0
00500		XMAX=MAX
00600		IF(FREQ(1,50,1).LT.XMAX*2.)FREQ(1,50,1)=XMAX*2.
00700		DO 100 J=0,MAX*2,2
00800		I=J/2
00900		NORDER=I
01000		IF(I.NE.1)CALL BESCOEF(CINDEX,COEF,NORDER,K)
01100		IF(I.GT.0)GO TO 20
01200		FREQ(1,I,K)=CAR
01300		FREQ(3,I,K)=0.0
01400		GO TO 30
01500	20	XI=I
01600		YMOD=XI*XMOD
01700		FREQ(1,J-1,K)=CAR+YMOD
01800		FREQ(1,J,K)=CAR-YMOD
01900		IF(I.EQ.1)GO TO 10
02000		FREQ(2,J-1,K)=COEF
02100		FREQ(2,J,K)=COEF
02200	10	FREQ(3,J-1,K)=I
02300		IF(IT)I=-I
02400		FREQ(3,J,K)=I
02500		IT=-IT
02600	30	CONTINUE
02700	100	CONTINUE
02800	102	FORMAT(3F)
02900		NAX=MAX
03000	200	CALL REFLECT(NAX,K)
03100		RETURN
03200		END
03300